home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / regiwppr / titlescr.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-01-20  |  1.8 KB  |  55 lines
  1. VERSION 5.00
  2. Begin VB.Form TitleScreen 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Title Screen"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3195
  13.    ScaleWidth      =   4680
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin VB.CommandButton Command1 
  16.       Caption         =   "E&xit"
  17.       Default         =   -1  'True
  18.       Height          =   375
  19.       Left            =   240
  20.       TabIndex        =   0
  21.       Top             =   2640
  22.       Width           =   4215
  23.    End
  24.    Begin VB.Label Label1 
  25.       Alignment       =   2  'Center
  26.       Caption         =   $"TitleScreen.frx":0000
  27.       Height          =   855
  28.       Left            =   120
  29.       TabIndex        =   1
  30.       Top             =   240
  31.       Visible         =   0   'False
  32.       Width           =   4455
  33.    End
  34. Attribute VB_Name = "TitleScreen"
  35. Attribute VB_GlobalNameSpace = False
  36. Attribute VB_Creatable = False
  37. Attribute VB_PredeclaredId = True
  38. Attribute VB_Exposed = False
  39. Private Sub Command1_Click()
  40.     Unload Me
  41.     End
  42. End Sub
  43. Private Sub RegWizardPro1_EvaluationExpired()
  44.     RegWizardPro1.ShowRegDialog
  45.     End
  46. End Sub
  47. Private Sub RegWizardPro1_ShowRegInfo()
  48.     Load OrderInfo
  49.     OrderInfo.Show vbModal
  50. End Sub
  51. Private Sub RegWizardPro1_UserReRegistered(ByVal UserName As String, ByVal OldRegCode As String, ByVal NewRegCode As String)
  52. Dim Response As Long
  53.     Response = MsgBox("Your registration code has changed.  Please write this down for future reference:" & vbCrLf & "Registration Name: " & UserName & vbCrLf & "Registration Code: " & NewRegCode, vbOKOnly + vbCritical, App.Title)
  54. End Sub
  55.